home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 January / macformat-033.iso / mac / Education / Dorling Kindersley / Nature / DATA / contentM.dir / 00133.ls < prev    next >
Encoding:
Text File  |  1995-04-25  |  1.1 KB  |  41 lines
  1. on john2
  2.   puppetSprite(5, 1)
  3.   repeat while (the mouseCast >= 119) and (the mouseCast <= 128) and the mouseUp
  4.     set x to the mouseCast
  5.     if x <> -1 then
  6.       set the castNum of sprite (x - 104) to x - 10
  7.       set the castNum of sprite 5 to x + 681
  8.     end if
  9.     puppetSound("click")
  10.     updateStage()
  11.     repeat while (the mouseCast = x) and (the mouseDown <> 1)
  12.     end repeat
  13.     go(the frame)
  14.   end repeat
  15.   if the mouseCast = 800 then
  16.     teleplay()
  17.   end if
  18.   if the mouseDown then
  19.     if (the mouseCast <= 128) and (the mouseCast >= 120) then
  20.       go("e")
  21.     end if
  22.     if (the mouseCast <= 809) and (the mouseCast >= 801) then
  23.       go("e")
  24.     end if
  25.     if (the mouseCast = 119) and (the castNum of sprite 5 = 800) then
  26.       go("TVs+")
  27.     end if
  28.   end if
  29.   go(the frame)
  30. end
  31.  
  32. on movielistset
  33.   global movielist
  34.   set movielist to list("@:ATLAS:01.dir", "@:TWTW:01.dir", "@:stowaway:01title.dir", "@:Science:01Start.DIR", "@:NATURE:01Intro.DIR", "@:HISTORY:01Hia.dir", "@:MFIAD:01Title.DIR", "@:Body:01.DIR", "@:PB:01.DIR", 1)
  35. end
  36.  
  37. on teleplay
  38.   go("TVs")
  39.   abort()
  40. end
  41.